|
CATIA V5 Programmierung : Aus Excel mit VBA eine Stückliste erstellen
catiavba am 21.05.2010 um 20:33 Uhr (0)
Hallo zusammen,bin auf der Suche nach einem VBA-Skript, welches mir erlaubt aus Excel heraus die Stückliste eines geöffneten Catia-product in Excel einzulesen. Später soll dann diese Stückliste noch erweitert werden, wie z.B. mit Gewicht, Volumen oder Material der Teile. Da ich noch neu im Umgang mit Catia bin, wäre ich über jede Hilfe sehr dankbar.viele Grüße,catiavba
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aus Excel mit VBA eine Stückliste erstellen
catiavba am 29.05.2010 um 12:32 Uhr (0)
Habe es jetzt auch mal per Skript gelöst. Hier mal ein Excel-VBA Beispiel, welches die Namen der Teile die sich im aktiven Dokument befinden in eine Tabelle schreibt:Set CATIA = GetObject(, "CATIA.APPLICATION")Set activedoc = CATIA.ActiveDocument.ProductAnzahlProducts = activedoc.Products.Counti = 1For Y = 1 To AnzahlProductstabelle1.Cells(Y, 1).Value = activedoc.Products.Item(i).Namei = i + 1Next Y
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aus Excel mit VBA eine Stückliste erstellen
catiavba am 29.05.2010 um 13:44 Uhr (0)
Auf dem Weg bin ich schon. Habe folgendes Skript in dem Buch "Catia V5 - Makroprogrammierung mit VB" gefunden und die erste sub (wohl falsch) angepasst:------------------------------------Sub CATmain() Set CATIA = GetObject(, "CATIA.APPLICATION") Set activedoc = CATIA.ActiveDocument.Product Analysieren (activedoc) End SubPublic Function Analysieren(P As Product) Name ausgeben MsgBox (P.PartNumber) Liste analysieren Dim PP As Products Dim I As Integer Set PP = P.Pro ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aus Excel mit VBA eine Stückliste erstellen
catiavba am 29.05.2010 um 19:07 Uhr (0)
Habe den Code jetzt fertig. Danke bgrittmann . Falls es jemanden interessiert, hier der fertige Code:Dim y As Integer ZeilenzählerDim xMenge Salte MengeDim xName SPalte NameDim xPartNumber Spalte PartNumber Sub CATMain() y = 1 xMenge = 1 xName = 2 xPartNumber = 3 Set CATIA = GetObject(, "CATIA.APPLICATION") Set oRoot = CATIA.ActiveDocument Set oProducts = oRoot.Product.Products Call SUB_ProdScan(oProducts) End SubSub SUB_ProdScan(oProducts)ySuche = 1 For I = 1 To oProducts.Count ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
